home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 51 / 051.d81 / edstar main (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  7.1 KB  |  183 lines
  1. 5 poke650,255:print"";:goto30
  2. 10 xx=0:ifxy<760thenreturn
  3. 15 print"[207]ut of lines!!!":fort=1to500:next:print"[145]                 ":xx=-1:return
  4. 30 poke53280,6:poke53281,0:print"[147]":ifpeek(49408)=1then40
  5. 36 print"[147]           [208]lease wait..":load"edstar 5.o",8,1
  6. 40 gosub50:poke55,0:poke56,39:clr:s=10000:poke53272,23:tb=1503:goto60
  7. 50 poke1020,1:poke1021,19:poke1022,0:poke1023,39:return
  8. 60 ip=49448:ls=49430:mt=49433:mb=49436:sd=49415:sc=49412:sf=49418:lf=49421:lm=49442:mw=49439:dc=49424:ic=49427:ww=49445:cl=49409:md=49451:mi=49454:wc=49457:pr=49460:sp=49463:ca=49466:g1=49469:g2=49472:g3=49475:g4=49478:g5=49481:rd=49484:sysmw:gosub765
  9. 135 deffns(x)=x*40+9960:poke646,12:syscl:gosub300:gosub405:ln=1:goto145
  10. 145 ps=1465:poke53272,23:t$=" ":gosub715:goto155
  11. 155 getc$:ifc$<>""then175
  12. 160 pokeps,peek(ps)or128
  13. 165 getc$:ifc$<>""then175
  14. 170 gosub303:goto155
  15. 175 poke150,asc(c$):sysip:ifpeek(150)=0then270
  16. 180 onpeek(151)goto190,205,210,215,220,225,230,235,240,245,250,255,260,265
  17. 185 goto165
  18. 190 xy=ln:gosub10:ifxxthen200
  19. 195 gosub303:ps=1465:sysls,ln:ln=ln+1:syssc:sysmb,ln+8
  20. 200 goto280
  21. 205 gosub395:goto165:in
  22. 210 gosub330:goto165:cr
  23. 215 gosub345:goto165:cr
  24. 220 gosub355:goto165:cr
  25. 225 gosub380:goto165:cr
  26. 230 gosub475:goto165:^dl
  27. 235 gosub530:goto165:^il
  28. 240 gosub303:gosub635:gosub410:gosub725:gosub985:goto165:save
  29. 245 gosub805:gosub720:goto165:^pprinter
  30. 250 gosub310:goto165:de
  31. 255 gosub1315:goto165:^xe
  32. 260 gosub910:goto165:^hh
  33. 265 gosub1025:goto165:^ffons
  34. 270 lp=peek(49151+asc(c$)):pokeps,lp:ps=ps+1:ifps=tbthenps=1465:gosub430:sysls,ln:sysmb,ln+8
  35. 280 ifln>nlthennl=ln
  36. 285 goto155
  37. 300 fort=55736to55775:poket,7:next:return
  38. 303 pokeps,peek(ps)and127:return
  39. 310 ifps<1466thenreturn
  40. 315 poke150,ps-1465:gosub303:sysdc:ps=ps-1:return
  41. 330 ifps>1465thengosub303:pokeps,peek(ps)or128:gosub303:ps=ps-1
  42. 335 return
  43. 345 ifps<1502thengosub303:pokeps,peek(ps)or128:gosub303:ps=ps+1
  44. 350 return
  45. 355 ifln=1thenprint"             [211]tart of text[152]":gosub585:return
  46. 365 gosub303:sysls,ln:ln=ln-1:syssd:ifln>10thensysmt,ln-10
  47. 375 return
  48. 380 ifln>=nlthengosub575:return
  49. 390 gosub303:sysls,ln:ln=ln+1:syssc:sysmb,ln+8:return
  50. 395 pokeps,peek(ps)and127:poke150,ps-1463:sysic:return
  51. 405 :
  52. 410 print"[155] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]":gosub303:fort=1to3:print" [221]                                    [221]":next:print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][145][145][145][145]";:return
  53. 430 xy=ln:gosub10:ifxxthenreturn
  54. 440 xf=0:ifpeek(tb-1)=32thenxf=-1
  55. 445 sm=fns(ln+1):poke251,int(sm/256):poke250,sm-peek(251)*256:fm=fns(nl):poke253,int(fm/256):poke252,fm-peek(253)*256:syswc:ifpeek(150)<>0thenpoke1020,12:syssd:sysmi:nl=nl+1:poke1020,1
  56. 460 sysww:ps=peek(150)+1464:sysls,ln:syssc:ln=ln+1:ifxf=-1thenps=1465
  57. 470 return
  58. 475 ifnl=0thenreturn
  59. 485 print"[196]eleting a line...":sm=fns(ln):poke251,int(sm/256):poke250,sm-peek(251)*256:sm=fns(nl+1):poke253,int(sm/256):poke252,sm-peek(253)*256:sysmd:poke1020,11:syssc:gosub50:ps=1465:nl=nl-1:sysls,ln:sysmb,ln+8:print"                   ":poke150,0:poke151,0:poke152,0:poke153,o
  60. 520 ifnl<lnthengosub355
  61. 525 return
  62. 530 :
  63. 535 xy=nl:gosub10:ifxxthenreturn
  64. 540 print"[201]nserting a line...":sm=fns(ln):poke251,int(sm/256):poke250,sm-peek(251)*256:fm=fns(nl):poke253,int(fm/256):poke252,fm-peek(253)*256:sysmi:nl=nl+1:gosub303:poke1020,11:syssd:gosub50:ps=1465:print"                    ":poke150,0:poke151,0:poke152,0:poke153,0:return
  65. 575 print"[197]nd of text
  66. 585 [129]t[178]1[164]40:[130]:[137]605
  67. 590 [151]54296,15:[151]54277,45:[151]54278,165:[151]54276,33:[151]54273,6:[151]54272,5:[129]t[178]1[164]200:[130]:[151]54276,32:[151]54273,0:[151]54272,0:[151]198,0:[142]
  68. 605 [153]"                            ":[142]
  69. 620 [141]410:[153]"cmdatnre you sure you want to exit? ((NULL)/(NULL))
  70. 625 getd$:ifd$=""then625
  71. 627 ifd$="n"thenow=0:return
  72. 628 ifd$="y"thenow=1:goto630
  73. 629 goto625
  74. 630 gosub410:print"[157][196]o you wish to [211][193][214][197] this file? ([217]/[206])
  75. 631 [161]d$:[139]d$[178]""[167]631
  76. 632 [139]d$[178]"y"[176]d$[178]"(NULL)"[167]635
  77. 633 [139]d$[178]"n"[176]d$[178]"(NULL)"[167][142]
  78. 635 [158]ls,ln:fx[178]17:[159]15,8,15,"i0":[160]15
  79. 640 [141]410:[153]"(NULL)ave as what? ($-str$right$(NULL))":[153]"(NULL)atn(NULL)val :";:[141]2000:fs$[178]k$:[139]fs$[178]""[167]630
  80. 645 [139]fs$[178]"$"[167][153]"load":[158]ca:[153]"":[137]640
  81. 650 fx[178]fx[171]1:fs$[178][200](fs$,fx):[139][201](fs$,1)[178]" "[167]645:[139]fs$[178]fi$[167]655
  82. 655 fi$[178]fs$:[141]410:[153]"(NULL)aving '"fi$"'":[159]15,8,15:[152]15,"r0:"fi$"=0:"fi$:ow[178][171]1:[132]15,a$:[139]a$[179][177]"63"[167]688
  83. 670 [153]"onascright$(NULL)val val(NULL)right$(NULL)(NULL)(NULL)! (NULL)eplace?((NULL)/(NULL))";:[141]590
  84. 675 [161]r$:[139]r$[178]""[167]675
  85. 680 [139]r$[178]"n"[167][160]15:[142]
  86. 681 [139]r$[178]"y"[167]685
  87. 683 [137]675
  88. 685 [153]" clr(NULL)k.print#":[152]15,"s0:"[170]fi$:[160]15
  89. 688 f$[178]fi$[170]",p,w":[141]410:[153]"(NULL)lease wait while saving.":[151]827,[195](f$):[129]c[178]1[164][195](f$):[151]827[170]c,[198]([202](f$,c)):[130]:fi$[178]f$:[151]251,(nl)[173]256:[151]250,256[172]((nl)[173]256[171][194](251)):[158]sf:[159]15,8,15:[132]15,er,er$:[160]15:[141]410:[153]"cmdstr$isk (NULL)tatus :"er","er$:[153]"(NULL)ress ((NULL)(NULL)atnlenval) when ready to continue
  90. 709 getd$:ifd$<>" "then709
  91. 710 sv=-1:return
  92. 715 :
  93. 720 gosub303:sysls,ln:gosub410
  94. 725 print"[152]([195][212][210][204])[159][201][152][146]nsert line   ([195][212][210][204])[159][211][152][146]ave text":print"([195][212][210][204])[159][196][152][146]elete line   ([195][212][210][204])[159][208][152][146]rinter":print"([195][212][210][204])[159][200][152][146]elp          ([195][212][210][204])e[159][216][152][146]it":ift$=" "thenreturn
  95. 745 getme$:ifme$=""then745
  96. 750 ifme$="d"orme$="i"orme$="p"orme$="h"orme$="s"orme$="x"thenreturn
  97. 755 goto745
  98. 765 print"[147][196]o you wish to load a text file? ([217]/[206])
  99. 766 [161]a$:[139]a$[178]""[167]766
  100. 767 [139]a$[178]"n"[176]a$[178]"(NULL)"[167][153]"load":[142]
  101. 768 [139]a$[179][177]"y"[167]766
  102. 769 [153]"load":[141]1260:[139]fi$[178]""[167]765
  103. 770 [158]mw:[151]250,17:[151]251,39:[151]252,nl[173]256:[151]253,256[172]((nl[173]256)[171][194](252)):[158]lf:t$[178]" ":[141]1295:[139]nl[179][177]0[167]795
  104. 790 [159]15,8,15:[132]15,s$:[160]15:[142]
  105. 795 [141]300:[142]
  106. 805 [158]ls,ln:[141]410:[153]"  * (NULL)(NULL)right$(NULL)(NULL) (NULL)val(NULL)(NULL) ascright$(NULL)val (NULL)(NULL) (NULL)(NULL)right$(NULL)(NULL)val(NULL) *":[153]"(NULL)ress ((NULL)(NULL)atnlenval) when ready to print":[153]"(NULL)ress ((NULL)val(NULL)(NULL)(NULL)(NULL)) to abort
  107. 825 getp$:ifp$=""then825
  108. 826 ifp$=" "then832
  109. 830 ifp$=""then825
  110. 831 gosub410:print"[208]rinting aborted":fort=1to699:next:return
  111. 832 open15,4,15:close15:ifst=0then835
  112. 833 gosub410:print"[208]rinter not detected":fort=1to699:next:return
  113. 835 open4,4,7:cmd4:lc=0:lp=1
  114. 845 ifnl-lp<120then865
  115. 850 fori=lptolp+59:rs=60:gosub885:next:ifpeek(203)=23then875
  116. 860 print:print:print:print:print:print:lp=lp+120:goto845
  117. 865 rs%=(nl-lp+2)/2:rs=rs%:fori=lptolp+rs-1:gosub885:next
  118. 875 print"";:getk$:print#4:close4:return
  119. 885 m1=fns(i):m2=fns(i+rs):poke151,m1/256:poke150,256*(m1/256-peek(151)):syspr:poke151,m2/256:poke150,256*(m2/256-peek(151)):syspr:return
  120. 910 gosub303:sysls,ln:print"[147]":print"[147][158]         [197][196][211][212][193][210] [200][197][204][208][160][211][195][210][197][197][206]":print"  [212]o access functions press ([195][212][210][204]) [198].":print"      [212]he next key does the job.":print"    [198]1 = [212]op of text,   [198]7 = [194]ottom":print"    [198]3 = [213]p 10 lines,   [198]5 = [196]own.":print"   ([195][212][210][204]) [211] = [211]plits lines
  121. 946 [153]"   (len(NULL)(NULL)(NULL)) chr$ = chr$lues lines":[153]"   (len(NULL)(NULL)(NULL)) (NULL) = (NULL)ipes leading spaces.":[153]"   (len(NULL)(NULL)(NULL)) atn = atnppends a file.":[153]"   (len(NULL)(NULL)(NULL)) (NULL) = (NULL)aps between \ flags.":[153]"   (len(NULL)(NULL)(NULL))closestr$ = str$ouble spaces lines.":[153]"                                      
  122. 970 print" [208]ress ([211][208][193][195][197]) when ready to continue
  123. 975 [161]t$:[139]t$[179][177]" "[167]975
  124. 985 [153]"load":[151]646,12:[158]cl:[141]410:[141]725:[141]300:[129]p[178]ln[171]10[164]ln[170]7:[139]p[179]1[167]1010
  125. 1005 [158]mb,p:[158]sc
  126. 1010 [130]:[158]mb,p:[141]300:[142]:fu
  127. 1025 [141]303:[153]"ascunct:";:[158]ls,ln
  128. 1030 [161]f$:[139]f$[178]""[167]1030
  129. 1035 [153]"      ";:[139]f$[178]""[167][141]1100:[142]:gl
  130. 1045 [139]f$[178]""[167][141]1160:[142]:sp
  131. 1050 [139]f$[178]"let"[167][141]1180:[142]:[128]of
  132. 1055 [139]f$[178]"input"[167][141]1185:[142]:[164]po
  133. 1060 [139]f$[178]"dim"[167][141]1195:[142]:up
  134. 1065 [139]f$[178]"read"[167][141]1190:[142]:do
  135. 1070 [139]f$[178]""[167][141]1205:[142]:ri
  136. 1075 [139]f$[178]""[167][141]1210:[142]:le
  137. 1080 [139]f$[178]""[167][141]1215:[142]:wi
  138. 1085 [139]f$[178]""[167][141]1230:[142]:ap[128]
  139. 1090 [139]f$[178]""[167][141]1290:[142]:\pu
  140. 1092 [139]f$[178]""[167][141]1340:[142]
  141. 1095 [142]
  142. 1100 [139]ln[177]nl[171]2[167][142]
  143. 1105 [158]g1:qe[178][194](252)[170]256[172][194](253):[139]qe[177]1502[167]1145
  144. 1115 [158]g2:qx[178][194](150):[141]380:[139]qx[178]0[167]1145
  145. 1130 [151]150,qx:[158]g4:[141]1215:[139]qx[177]37[167][141]475
  146. 1145 [158]g5:ps[178][194](250)[170][194](251)[172]256:[139]ps[178]1502[167][141]380
  147. 1155 [142]
  148. 1160 [139]ps[178]1465[167]1175
  149. 1165 pz[178]ps:[141]380:[141]535:pk[178][165]s(ln[171]1):[151]151,pk[173]256:[151]150,256[172]((pk[173]256)[171][194](151)):[151]250,pz[171]1465:[158]sp
  150. 1175 [142]
  151. 1180 ln[178]nl:[141]985:[142]
  152. 1185 ln[178]1:[141]985:[142]
  153. 1190 [129]qd[178]1[164]10:[141]380:[130]:[142]
  154. 1195 [129]qd[178]1[164]10:[141]355:[130]:[142]:[141]985:[142]
  155. 1205 [141]303:ps[178]1502:[142]
  156. 1210 [141]303:ps[178]1465:[142]
  157. 1215 [158]g3:qx[178][194](150):[139]f$[178]""[167][141]380
  158. 1225 [142]
  159. 1230 [153]"loadatnppend:":[141]1260:ma[178][165]s(ln)[170]1:[151]251,ma[173]256:[151]250,256[172]((ma[173]256)[171][194](251)):[151]253,ln[173]256:[151]252,256[172]((ln[173]256)[171][194](253)):[158]lf:qd[178]ln:[141]1295:ln[178]qd:[141]985:[142]
  160. 1260 fs$[178]fi$:fi$[178]"":[141]405:[153]"(NULL)hat file? ($-str$right$(NULL)):";:[141]2000:fi$[178]k$:[139]fi$[178]""[167][142]
  161. 1265 [159]15,8,15,"i0":[160]15:[139]fi$[178]"$"[167][153]"load":[158]ca:[153]:[137]1260
  162. 1272 f$[178]fi$:[151]827,[195](f$):[129]c[178]1[164][195](f$):[151]827[170]c,[198]([202](f$,c)):[130]:[153]"load":[141]405:[153]"(NULL)oading '"fi$"'":[142]
  163. 1290 [158]rd
  164. 1295 ma[178][194](250)[170][194](251)[172]256:ma[178]ma[171]10001:[139]ma[179]0[167]ma[178]0
  165. 1305 nl[178][181](ma[173]40)[170]1:ln[178]1:[141]985:[142]
  166. 1315 [141]620:[139]ow[178]0[167]1322
  167. 1321 [137]3000
  168. 1322 [141]410:[141]725:[142]
  169. 1340 [141]1185:[141]380
  170. 1345 [139]ln[179]nl[167][141]530:[141]380:[141]380:[137]1345
  171. 1350 [141]530:[142]
  172. 2000 k$[178]"":[153]"tocmd";
  173. 2010 [161]ke$:[139]ke$[178]""[167]2010
  174. 2011 [139]ke$[178][199](20)[175][195](k$)[177]0[167]2040
  175. 2015 [139]ke$[178][199](20)[167]2010
  176. 2020 [139]ke$[178][199](13)[167][153]" ":[142]
  177. 2025 [139][195](k$)[178]16[167]2010
  178. 2027 [139]ke$[179]" "[176]ke$[177]"_"[175]ke$[179]"atn"[176]ke$[177]"(NULL)"[167]2010
  179. 2034 k$[178]k$[170]ke$:[153]ke$;:[153]"tocmd";:[137]2010
  180. 2040 k$[178][200](k$,[195](k$)[171]1):[153]" cmdcmdtocmd";:[137]2010
  181. 3000 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er,er$:[160]15:[139]er[179][177]63[167][153]"load":[128]
  182. 3002 [147]"hello connect",8
  183.